home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 December / PC Answers December 1995 (disc errors).iso / mxc / flyinf.dir / 00006_Script_6 < prev    next >
Text File  |  1995-05-04  |  1KB  |  42 lines
  1. global myLine, gsliderbar, gmovno, gDirMovie, fixPal
  2.  
  3. on startMovie
  4.   if the machineType < 256 then 
  5.     openXlib "XPALETTE"
  6.     set fixPal = fixPalette(mNew,the stageleft,the stagetop,the stageright,the stagebottom)
  7.   end if
  8.   if the machineType >= 256 then 
  9.     openXlib "XPALETTE.dll"
  10.     set fixPal = xPalette(mNew)
  11.   end if
  12.   seperate
  13.   set gDirMovie = "flyinf.dir"
  14.   set gMovNo = the number of cast gMovNo
  15.   fixPal(mpatchIt)
  16.   repeat with i = 1 to 1000
  17.     if the castType of cast i = #digitalVideo then 
  18.       set the pausedAtStart of cast i = True
  19.       set the controller of cast i = gsliderBar
  20.       set the video of cast i = false
  21.     end if
  22.   end repeat
  23. end
  24.  
  25. on patchPal
  26.   fixPal(mPatchIt)
  27. end patchPal
  28.  
  29. on stopMovie
  30.   fixPal(mDispose)
  31.   if the machineType < 256 then closeXlib "XPALETTE"
  32.   else closeXlib "XPALETTE.dll"
  33. end stopMovie
  34.  
  35. on seperate
  36.   put getAt(FlyList, 1) into field "Name"
  37.   put getAt(FlyList, 2) into field "Pattern"
  38.   put getAt(FlyList, 3) into field "Stage"
  39.   put getAt(FlyList, 4) into field "Link"
  40.   put the number of cast(getat(flyList, 7)) into gMovNo
  41. end
  42.